

# Script de replicação do artigo de Kaufman, DADOS vol. 68 n. 4

# Setup ------------------------------------------------------------------------

library(tidyverse)
library(haven)

dados <- as.data.frame(read_sav("Banco de dados táticas.sav"))

# Convertendo as labels do SPSS

dados_2 <- dados |>  
  mutate(across(.cols = c(-ID_EVENTO, -DATA), .fns = as_factor))

names(dados_2)

# Gráfico 1 --------------------------------------------------------------------

# Extrainstitucional não-virtual
dados_2 |> 
  filter(GERAL_EXTRA_INSTITUCIONAL_OFFLINE == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Institucional
dados_2 |> 
  filter(GERAL_INSTITUCIONAL == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Comunicacional
dados_2 |> 
  filter(GERAL_COMUNICACIONAL == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Virtual
dados_2 |> 
  filter(GERAL_EXTRA_INSTITUCIONAL_VIRTUAL == "Sim") |> 
  count(LADO_DO_CONFRONTO)


# Gráfico 2 --------------------------------------------------------------------

# Verificando amostra de algumas variáveis

# Protesto de rua
dados_2 |> 
  filter(PROTESTO_RUA == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Encontro assembleia
dados_2 |> 
  filter(ENCONTRO_ASSEMBLEIA == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Ocupação
dados_2 |> 
  filter(OCUPAÇÃO == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Barulhaço
dados_2 |> 
  filter(BARULHAÇO == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Gráfico 3 --------------------------------------------------------------------

# Verificando amostra de algumas variáveis

# Ações justiça
dados_2 |> 
  filter(AÇÕES_PRESENTAÇÕES_JUSTIÇA == "Sim") |> 
  count(LADO_DO_CONFRONTO)


# Iniciativa legislativa popular
dados_2 |> 
  filter(INICIATIVA_LEGISLATIVA_POPULAR == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Apostasia coletiva
dados_2 |> 
  filter(APOSTASIA_COLETIVA == "Sim") |> 
  count(LADO_DO_CONFRONTO)


# Gráfico 4 --------------------------------------------------------------------

# Verificando amostra de algumas variáveis

# Coletiva de imprensa
dados_2 |> 
  filter(COLETIVA_IMPRENSA == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Spots
dados_2 |> 
  filter(SPOTS == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Comunicado
dados_2 |> 
  filter(COMUNICADO == "Sim") |> 
  count(LADO_DO_CONFRONTO)


# Gráfico 5 --------------------------------------------------------------------

# Verificando amostra de algumas variáveis

# Tuitaço
dados_2 |> 
  filter(TUITAÇO == "Sim") |> 
  count(LADO_DO_CONFRONTO)


# Hacking
dados_2 |> 
  filter(HACKEIO_CONTAFAKE == "Sim") |> 
  count(LADO_DO_CONFRONTO)

# Viralização
dados_2 |> 
  filter(VIRALIZAÇÃO_CONTEÚDO == "Sim") |> 
  count(LADO_DO_CONFRONTO)
